home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / pdselect / ispell_yam / rexx / ispell_suggest.rexx < prev   
OS/2 REXX Batch file  |  2000-03-08  |  2KB  |  72 lines
  1. /*-------------------------------------------------------------------------------------------------
  2.  
  3.    iSpell_suggest.rexx 1.2
  4.  
  5.    Brecht Machiels <darklite@flashmail.com>
  6.    Markus K.Maier <mkm@gmx.de>
  7.      
  8. ---------------------------------------------------------------------------------------------------
  9.  
  10. $VER: iSpell_suggest v1.2
  11. $AUTHOR: Copyright © 1999 Brecht Machiels, Markus K.Maier
  12. $DESCRIPTION: Suggest feature for TextEditor.mcc & iSpell
  13.  
  14. --> OPTIONS <------------------------------------------------------------------------------------*/
  15.  
  16. BINPATH = "iSpell:bin/"
  17.  
  18. /*-----------------------------------------------------------------------------------------------*/
  19.  
  20. PARSE ARG word
  21.  
  22. OPTIONS RESULTS
  23.  
  24. a = OPEN('envvar', 'ENV:ISPELLYAM', 'R')
  25. IF a = 0 THEN DO
  26.   ADDRESS 'AREXX' 'YAM:Rexx/iSpell_lang'
  27.   DO UNTIL a = 1
  28.     a = OPEN('envvar', 'ENV:ISPELLYAM', 'R')
  29.    END
  30.  END
  31. language = READLN('envvar')
  32. CLOSE('envvar')
  33.  
  34. IF SHOW('P', 'IRexxSpell') THEN DO
  35.   a = OPEN('currentlang', 'ENV:ISPELLMR', 'R')
  36.   IF a = 0 THEN DO
  37.     ADDRESS 'IRexxSpell' 'EXIT'
  38.     EXIT
  39.    END
  40.   IF language ~= READLN('currentlang') THEN DO
  41.     ADDRESS 'IRexxSpell' 'EXIT'
  42.     PRAGMA('S', 10240)
  43.     ADDRESS 'COMMAND' 'run <nil: >nil: 'BINPATH'iSpell -d'language' -r >nil: <nil:'
  44.     ADDRESS 'COMMAND' 'waitforport IRexxSpell'
  45.    END
  46.   CLOSE('currentlang')
  47.  END
  48. ELSE DO
  49.   PRAGMA('S', 10240)
  50.   ADDRESS 'COMMAND' 'run <nil: >nil: 'BINPATH'iSpell -d'language' -r >nil: <nil:'
  51.   ADDRESS 'COMMAND' 'waitforport IRexxSpell'
  52.   ADDRESS 'COMMAND' 'setenv ISPELLMR 'language
  53.  END
  54.  
  55. ADDRESS 'IRexxSpell' 'CHECK 'word''
  56. r = result
  57. r1 = SUBSTR(r,1,1)
  58. OPEN('f', 'T:Matches', 'W')
  59. SELECT
  60.   WHEN r1 = '#' THEN WRITELN('f', 'No suggestions')
  61.   WHEN r1 = '&' THEN DO
  62.     rt = TRANSLATE(SPACE(COMPRESS(r, '&1234567890:')), '0a'X, ',')
  63.     WRITELN('f', rt)
  64.    END
  65.   OTHERWISE DO
  66.     WRITELN('f', 'Word is correct')
  67.   END
  68. END
  69. CLOSE('f')
  70.  
  71. EXIT
  72.